BBS in a Box 7

home *** CD-ROM | disk | FTP | other *** search

/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / S-Sh / ScriptManager_1-2.cpt / Script Manager / cards.xml < prev next >

Wrap

Text File | 1992-05-11 | 157KB | 3,714 lines

card_10391.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>10391</id> <filler1>0</filler1> <bitmap>BMAP_10613.pbm</bitmap> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4118</owner> <link rel="stylesheet" type="text/css" href="stylesheet_9546.css" /> <part> <id>1</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>9</left> <top>103</top> <right>89</right> <bottom>126</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Input from:</name> <script>on mouseUpAnswer file "Input from what file?" of type "TEXT"put it into cd fld "InFile"end mouseUp</script> </part> <part> <id>2</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>90</left> <top>104</top> <right>488</right> <bottom>126</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>InFile</name> <script></script> </part> <part> <id>3</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>90</left> <top>133</top> <right>488</right> <bottom>155</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>OutFile</name> <script></script> </part> <part> <id>4</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>8</left> <top>132</top> <right>89</right> <bottom>155</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Output To:</name> <script>--Modified on Wednesday, December 19, 1990-11:31:07 AMon mouseUp--Modified by Peter J√∂rgensen on Wednesday, December 19, 1990 at 11:31:07 AMget ExtractfName(cd fld "inFile")Put ".Comma" after itAsk File "Save as‚Ä¶" with itput it into cd fld "OutFile"end mouseUp</script> </part> <part> <id>5</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>345</left> <top>274</top> <right>417</right> <bottom>295</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Do It!</name> <script>--Modified on Monday, March 18, 1991-8:53:39 AMon mouseUp--Modified by Peter J√∂rgensen on Monday, March 18, 1991 at 8:53:39 AM--Modified by Peter J√∂rgensen on Monday, March 18, 1991 at 8:52:50 AMset the name of me to "Stop It!"Answer "Inspect or Translate?" with "Inspect" or "Translate"do itset the name of me to "Do It!"end mouseUp</script> </part> <part> <id>8</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>90</left> <top>159</top> <right>487</right> <bottom>226</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>13</textHeight> <name>OutLine</name> <script></script> </part> <part> <id>9</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>258</left> <top>276</top> <right>309</right> <bottom>294</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>number of columns</name> <script></script> </part> <content> <layer>card</layer> <id>3</id> <text>Peter's IIcx:¬†Temp files:Karen Johnston:LIBST86.comma</text> </content> <content> <layer>background</layer> <id>6</id> <text>tabs to Commas</text> </content> <content> <layer>card</layer> <id>9</id> <text>28</text> </content> <content> <layer>card</layer> <id>2</id> <text>Peter's IIcx:¬†Temp files:Karen Johnston:LIBST86.TXT</text> </content> <content> <layer>card</layer> <id>8</id> <text>A,1,2,3,4,4a,4b,5,6,6a,7,8,9a,9b,10,11,12,13,14,14a,14b,15,15a,15b,15c,16,17,18AMHERST,</text> </content> <name>tabs to commas</name> <script>--Modified on Monday, March 18, 1991-10:10:47 AMfunction theFiles--Modified by Peter J√∂rgensen on Monday, March 18, 1991 at 9:15:41 AMif cd fld "InFile" is empty then send mouseUp to btn "Input from:"put cd fld "InFile" into Infileif cd fld "OutFile" is empty then send mouseUp to btn "Output to:"put cd fld "OutFile" into OutFilereturn InFile&","&outFileend theFilesfunction NextField aLine--Modified by Peter J√∂rgensen on Monday, March 18, 1991 at 10:10:45 AM--Modified by Peter J√∂rgensen on Monday, March 18, 1991 at 9:15:41 AMif aLine is empty then return emptyput offset(tab,aLine) into endoffieldget char 1 to endOfField of aLinedelete char 1 to endOfField of aLinedelete last char of itreturn it&","&aLineend NextFieldfunction NextLine InFile--Modified by Peter J√∂rgensen on Monday, March 18, 1991 at 10:10:45 AMread from file InFile until returnif it is empty then read from file InFile until returnreturn itend NextLineon translate--Modified by Peter J√∂rgensen on Monday, March 18, 1991 at 10:10:46 AM--Modified by Peter J√∂rgensen on Monday, March 18, 1991 at 9:15:42 AM--Modified by Peter J√∂rgensen on Wednesday, December 19, 1990 at 11:38:24 AMGet theFiles()put item 1 of it into InFileput item 2 of it into OutFileopen file Infileopen file OutFileput NextLine(InFile) into aLineget nextField(aLine)repeat until it is emptyput aLine into cd fld "OutLine"if the mouseclick then exit repeatrepeat until item 1 of it is emptywrite item 1 of it & "," to file outFileget nextField(item 2 of it)end repeatwrite item 2 of it & return to file outFileput NextLine(InFIle) into aLineget nextField(aLine)end repeatClose file InFileClose file OutFileend translateon inspect inFile--Modified by Peter J√∂rgensen on Monday, March 18, 1991 at 10:10:47 AM--Modified by Peter J√∂rgensen on Monday, March 18, 1991 at 9:15:42 AMGet theFiles()put item 1 of it into InFileput item 2 of it into OutFileopen file inFileopen file OutFileput empty into cd fld "outLine"put NextLine(InFile) into aLineget nextField(aLine)put zero into cd fld "number of columns"repeat until it is emptyadd 1 to cd fld "number of columns"put it & "," after cd fld "outLine"Answer "Get another field?" with "No" or "Yes"if it is "No" then exit repeatget NextField(InFile)end repeatClose file InFileClose file OutFileend inspect</script> </card> card_7722.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>7722</id> <filler1>0</filler1> <bitmap>BMAP_9293.pbm</bitmap> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4118</owner> <link rel="stylesheet" type="text/css" href="stylesheet_9546.css" /> <part> <id>1</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>9</left> <top>103</top> <right>89</right> <bottom>126</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Input from:</name> <script>on mouseUpAnswer file "Input from what file?" of type "TEXT"put it into cd fld "InFile"end mouseUp</script> </part> <part> <id>2</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>90</left> <top>104</top> <right>488</right> <bottom>126</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>InFile</name> <script></script> </part> <part> <id>3</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>90</left> <top>133</top> <right>488</right> <bottom>155</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>OutFile</name> <script></script> </part> <part> <id>4</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>8</left> <top>132</top> <right>89</right> <bottom>155</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Output To:</name> <script>--Modified on Wednesday, December 19, 1990-11:31:07 AMon mouseUp--Modified by Peter J√∂rgensen on Wednesday, December 19, 1990 at 11:31:07 AMget ExtractfName(cd fld "inFile")Put ".HQX" after itAsk File "Save as‚Ä¶" with itput it into cd fld "OutFile"if it is not empty then send mouseUp to btn "Do It!"end mouseUp</script> </part> <part> <id>5</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>207</left> <top>237</top> <right>279</right> <bottom>258</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Do It!</name> <script>on mouseUpset the name of me to "Stop It!"dePunch cd fld "InFile", cd fld "OutFile"set the name of me to "Do It!"end mouseUp</script> </part> <part> <id>9</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>42</left> <top>237</top> <right>182</right> <bottom>254</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Delete Source file</name> <script></script> </part> <content> <layer>card</layer> <id>2</id> <text>Peter's IIcx:¬†Temp files:suitcaser.lpun</text> </content> <content> <layer>card</layer> <id>3</id> <text>Peter's IIcx:¬†Temp files:suitcaser.lpun.HQX</text> </content> <name>dePunch</name> <script>--Modified on Friday, May 17, 1991-3:34:12 PMon DePunch inFile,OutFile--Modified by Peter J√∂rgensen on Friday, May 17, 1991 at 3:34:11 PM--Modified by Peter J√∂rgensen on Friday, May 17, 1991 at 2:47:26 PM--Modified by Peter J√∂rgensen on Friday, May 17, 1991 at 11:53:36 AM--Modified by Peter J√∂rgensen on Wednesday, December 19, 1990 at 11:38:24 AMopen file inFileopen file OutFilerepeatread from file InFile until returnset the cursor to busyif it is empty then exit repeatif char 1 of it is not in "123456789" then next repeatput it into aLine -- c/l/textif last char of aLine is return then delete last char of aLineDelete char 1 to offset("/",aLine) of aLine -- l/textput aLine into NumLinesput char 1 to offset("/",NumLines)-1 of NumLines into NumLinesDelete char 1 to offset("/",aLine) of aLinerepeat with i = 1 to NumLines-1set the cursor to busyread from file InFile until returnif last char of it is return thendelete last char of itend ifput it after aLineend repeatwrite aLine & return to file outFileif the commandkey is down and the mouseclick thenwrite return & "Terminated by User!!!" to file outFileexit repeatend ifend repeatClose file InFileClose file OutFileif the hilite of btn "Delete source file" thenAnswer "Really delete file " & quote & InFile & quote &"?" with "No" or "Yes"if it is "Yes" then get deleteaFile(InFile)end ifend DePunch</script> </card> card_3262.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>3262</id> <filler1>0</filler1> <bitmap>BMAP_6512.pbm</bitmap> <cantDelete> <true /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>4118</owner> <link rel="stylesheet" type="text/css" href="stylesheet_9546.css" /> <part> <id>1</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>95</left> <top>145</top> <right>223</right> <bottom>166</bottom> </rect> <style>radiobutton</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Browsing</name> <script>on mouseUpsetUserLevel 1end mouseUp</script> </part> <part> <id>2</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>95</left> <top>187</top> <right>223</right> <bottom>208</bottom> </rect> <style>radiobutton</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Painting</name> <script>on mouseUpsetUserLevel 3end mouseUp</script> </part> <part> <id>3</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>95</left> <top>208</top> <right>223</right> <bottom>229</bottom> </rect> <style>radiobutton</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Authoring</name> <script>on mouseUpsetUserLevel 4end mouseUp</script> </part> <part> <id>4</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>95</left> <top>229</top> <right>223</right> <bottom>250</bottom> </rect> <style>radiobutton</style> <showName> <true /> </showName> <highlight> <true /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Scripting</name> <script>on mouseUpsetUserLevel 5end mouseUp</script> </part> <part> <id>5</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>222</left> <top>166</top> <right>325</right> <bottom>187</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <true /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Power Keys</name> <script>on mouseUpset powerKeys to the hilite of button "Power Keys"end mouseUp</script> </part> <part> <id>7</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>168</left> <top>91</top> <right>392</right> <bottom>111</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>14</textSize> <textStyle>plain</textStyle> <textHeight>18</textHeight> <name>User Name</name> <script>on closeFieldglobal userNameput card field "User Name" into userNameend closeField</script> </part> <part> <id>8</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>95</left> <top>166</top> <right>223</right> <bottom>187</bottom> </rect> <style>radiobutton</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Typing</name> <script>on mouseUpsetUserLevel 2end mouseUp</script> </part> <part> <id>9</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>173</left> <top>125</top> <right>198</right> <bottom>144</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>User Level</name> <script></script> </part> <part> <id>13</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>223</left> <top>187</top> <right>326</right> <bottom>208</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <true /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Blind Typing</name> <script>on mouseUpset blindTyping to the hilite of button "Blind Typing"end mouseUp</script> </part> <part> <id>14</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>222</left> <top>145</top> <right>325</right> <bottom>166</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <true /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Text Arrows</name> <script>on mouseUpset textArrows to the hilite of button "Text Arrows"end mouseUp</script> </part> <part> <id>15</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>324</left> <top>246</top> <right>349</right> <bottom>264</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>right</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>Compaction Limit</name> <script>on closefieldglobal complimitput me into complimitend closefield</script> </part> <part> <id>16</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>95</left> <top>250</top> <right>326</right> <bottom>265</bottom> </rect> <style>checkbox</style> <showName> <false /> </showName> <highlight> <true /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>AutoComp</name> <script>on mouseUpglobal autocompput the hilite of me into autocompsend "closefield" to cd fld "compaction limit"end mouseUp</script> </part> <part> <id>17</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>223</left> <top>210</top> <right>326</right> <bottom>228</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>No AutoDoc</name> <script>on mouseUpglobal overrideput the hilite of me into overrideend mouseUp</script> </part> <part> <id>19</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>371</left> <top>53</top> <right>393</right> <bottom>75</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>26635</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>about</name> <script>on mouseUpset the visible of cd fld "about" to not the visible of cd fld "about"end mouseUp</script> </part> <part> <id>20</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>71</left> <top>82</top> <right>448</right> <bottom>295</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>about</name> <script>on mouseUphide meend mouseUp</script> </part> <part> <id>22</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>394</left> <top>306</top> <right>488</right> <bottom>322</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>13</textHeight> <name></name> <script></script> </part> <content> <layer>background</layer> <id>6</id> <text>New User Preferences</text> </content> <content> <layer>card</layer> <id>9</id> <text>5</text> </content> <content> <layer>card</layer> <id>7</id> <text>Peter J√∂rgensen</text> </content> <content> <layer>card</layer> <id>15</id> <text>10</text> </content> <content> <layer>card</layer> <id>20</id> <text>This User Preferences card has some additional settings that you might find useful.1) Global override of AutoDoc function.2) Automatic compaction selection.3) Freesize setting for selecting auto compation.</text> </content> <content> <layer>card</layer> <id>22</id> <text>ver 1.0</text> </content> <name>User Preferences</name> <script>on openCardsetUserLevel the userLevelglobal complimit,override,autocompif autocomp is empty then put true into autocompset the hilite of btn "autocomp" to autocompif override is empty then put false into overrideset the hilite of btn "No AutoDoc" to overrideif complimit is empty then put 10 into complimitput complimit into cd fld "Compaction Limit"if card field "User Name" is emptythen click at the loc of card field "User Name"pass openCardend openCardon setUserLevel whatLevelset userLevel to whatLevelif the userLevel is whatLevel thenput the userLevel into card field "User Level"set hilite of button "Browsing" to the userLevel = 1set hilite of button "Typing" to the userLevel = 2set hilite of button "Painting" to the userLevel = 3set hilite of button "Authoring" to the userLevel = 4set hilite of button "Scripting" to the userLevel = 5set visible of button "Text Arrows" to the userLevel >= 2set hilite of button "Text Arrows" to the textArrowsset visible of button "Power Keys" to the userLevel >= 3set visible of button "Blind Typing" to the userLevel = 5set hilite of button "Power Keys" to the powerKeysset hilite of button "Blind Typing" to the blindTypingset the visible of button "No AutoDoc" to the userLevel = 5elseset hilite of the target to falseend ifend setUserLevel</script> </card> card_6108.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>6108</id> <filler1>0</filler1> <cantDelete> <true /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>5075</owner> <link rel="stylesheet" type="text/css" href="stylesheet_9546.css" /> <part> <id>1</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>199</left> <top>124</top> <right>214</right> <bottom>139</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name></name> <script>on mouseUpif the width of me is 15 thenset the width of me to 150set the height of me to 150set the style of me to shadowelseif the optionkey is down thenset the locktext of me to falseexit mouseUpend ifput the width of me into myWidthput the height of me into myHeightput the script of me into myScriptput myWidth into word 7 of line 3 of MyScriptput myHeight into word 7 of line 4 of MyScriptset the width of me to 15set the height of me to 15set the style of me to transparentset the script of me to MyScriptend ifend mouseUpon CloseFieldset the locktext of me to trueset the width of me to 15set the height of me to 15set the style of me to transparentend CloseFieldon mouseDownif the commandkey is down thenrepeat until the mouse is upset the loc of me to the mouselocend repeatend ifend mouseDown</script> </part> <part> <id>3</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>394</left> <top>306</top> <right>488</right> <bottom>322</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>13</textHeight> <name></name> <script></script> </part> <part> <id>4</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>51</left> <top>87</top> <right>162</right> <bottom>108</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Show Script</name> <script>on mouseUpedit the script of this cardend mouseUp</script> </part> <part> <id>5</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>51</left> <top>115</top> <right>162</right> <bottom>136</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Try Script</name> <script>on mouseUppopnoteend mouseUp</script> </part> <part> <id>6</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>51</left> <top>145</top> <right>162</right> <bottom>166</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Install in Home</name> <script>on mouseUpput the script of this card into popnotescriptpush cardset the lockmessages to trueset the lockscreen to truego homeget the script of this stack -- the home stackput return & popnotescript after itset the script of this stack to itpop cardend mouseUp</script> </part> <content> <layer>background</layer> <id>6</id> <text>PopNote</text> </content> <content> <layer>background</layer> <id>18</id> <text>PopNote is a utility that automates puting a small card field on the current card at the location you select with the mouse. The field will shrink down to a small locked field when it is closed (i.e. when you hit the enter-key or click outside it [OR WHEN AN ‚ÄúON IDLE‚Äù HANDLER UPDATES A TIME FIELD, ETC.]) You can reopen the field for reading simply by clicking on it ‚Äì click again to shrink it back. To edit the field, click on it with the option key down. To move the field, drag it with the command key de-pressed. This will work whether the field is ‚Äúopen‚Äù or ‚Äúclosed‚Äù. To create a popNote, simply type "Popnote" into the message box and hit return. Remember to put this script into your home stack, so you can add popnotes to any card.</text> </content> <content> <layer>card</layer> <id>1</id> <text>‚Ä¢ This is a popnote. Create another by entering ‚ÄúPopnote‚Äù in the message box. Try dragging it with the command key held down, or unlocking it with an option-click.</text> </content> <content> <layer>card</layer> <id>3</id> <text>ver 1.0</text> </content> <name>PopNote</name> <script>on PopNote-- version 1.0 ¬© 1989 Peter J√∂rgensen-- Put this script in your HOME stackput the userlevel into oldlevelset the userlevel to 5put the msg into usermsgput the visible of the msg into msgvisput "Click where you want the PopNote."set the cursor to crosswait until the mouseclickput usermsgset the visible of the msg to msgvisdoMenu "New Field"get the number of cd fldsset the rect of cd fld it to 0,0,150,150set the loc of cd fld it to the clicklocset the textfont of cd fld it to "Geneva"set the textsize of cd fld it to 9set the style of cd fld it to "Shadow"put "on mouseUp" & return into fldScriptput "if the width of me is 15 then" & return after fldScriptput "set the width of me to 150" & return after fldScriptput "set the height of me to 150" & return after fldScriptput "set the style of me to shadow" & return after fldScriptput "else" & return after fldScriptput "if the optionkey is down then" & return after fldScriptput "set the locktext of me to false" & return after fldScriptput "exit mouseUp" & return after fldScriptput "end if" & return after fldScriptput "put the width of me into myWidth" & return after fldScriptput "put the height of me into myHeight" & return after fldScriptput "put the script of me into myScript" & return after fldScriptput "put myWidth into word 7 of line 3 of MyScript" & return after¬¨fldScriptput "put myHeight into word 7 of line 4 of MyScript" & return after¬¨fldScriptput "set the width of me to 15" & return after fldScriptput "set the height of me to 15" & return after fldScriptput "set the style of me to transparent" & return after fldScriptput "set the script of me to MyScript" & return after fldScriptput "end if" & return after fldScriptput "end mouseUp" & return after fldScriptput "on CloseField" & return after fldScriptput "set the locktext of me to true" & return after fldScriptput "set the width of me to 15" & return after fldScriptput "set the height of me to 15" & return after fldScriptput "set the style of me to transparent" & return after fldScriptput "end CloseField" & return after fldScriptput "on mouseDown" & return after fldScriptput "if the commandkey is down then" & return after fldScriptput "repeat until the mouse is up" & return after fldScriptput "set the loc of me to the mouseloc" & return after fldScriptput "end repeat" & return after fldScriptput "end if" & return after fldScriptput "end mouseDown" & return after fldScriptset the script of cd fld it to fldScriptchoose browse toolset the userlevel to oldlevelput "‚Ä¢ " into cd fld itselect after line 1 of cd fld itend popNote</script> </card> card_2304.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>2304</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>5075</owner> <link rel="stylesheet" type="text/css" href="stylesheet_9546.css" /> <part> <id>14</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>59</left> <top>209</top> <right>222</right> <bottom>230</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>peek</name> <script></script> </part> <part> <id>1</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>59</left> <top>87</top> <right>222</right> <bottom>108</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>extractFName</name> <script></script> </part> <part> <id>2</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>250</left> <top>73</top> <right>460</right> <bottom>272</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>extractFName</name> <script></script> </part> <part> <id>3</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>105</left> <top>61</top> <right>177</right> <bottom>79</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Try It</name> <script>on mouseUp-- do nothingend mouseUp</script> </part> <part> <id>4</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>28</left> <top>39</top> <right>109</right> <bottom>57</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>visfld</name> <script></script> </part> <part> <id>5</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>59</left> <top>111</top> <right>222</right> <bottom>132</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>thisFolder</name> <script></script> </part> <part> <id>6</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>250</left> <top>73</top> <right>460</right> <bottom>272</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>thisFolder</name> <script></script> </part> <part> <id>7</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>250</left> <top>73</top> <right>460</right> <bottom>272</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>filespec</name> <script></script> </part> <part> <id>8</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>59</left> <top>136</top> <right>222</right> <bottom>157</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>fileSpec</name> <script></script> </part> <part> <id>9</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>59</left> <top>161</top> <right>222</right> <bottom>182</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>folderName</name> <script></script> </part> <part> <id>10</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>59</left> <top>185</top> <right>222</right> <bottom>206</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>FileList</name> <script>on mouseUpif the hilite of cd btn "Try It" thenshow cd fld "List"put FileList(thisFolder(),"",false,true) into cd fld "List"end ifpass mouseUpend mouseUp</script> </part> <part> <id>11</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>250</left> <top>73</top> <right>460</right> <bottom>272</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>FolderName</name> <script></script> </part> <part> <id>12</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>250</left> <top>73</top> <right>460</right> <bottom>272</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>FileList</name> <script></script> </part> <part> <id>13</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>31</left> <top>75</top> <right>482</right> <bottom>255</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>List</name> <script>on mouseUphide meend mouseUp</script> </part> <part> <id>15</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>250</left> <top>73</top> <right>460</right> <bottom>272</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>peek</name> <script></script> </part> <part> <id>17</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>394</left> <top>306</top> <right>488</right> <bottom>322</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>13</textHeight> <name></name> <script></script> </part> <part> <id>18</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>57</left> <top>235</top> <right>222</right> <bottom>258</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Compact Stacks</name> <script>on mouseUpput fileName("STAK") into theStacksif theStacks is empty then exit mouseUPAnswer "Compact stacks in‚Ä¶" with "Just this!" or "Folder" or "SubFolders"if it is "Folder" thenput FileList (folderName (theStacks),"STAK",true,false) into theStackselse if it is "SubFolders" thenput FileList (folderName (theStacks),"STAK",true,true) into theStacksend ifput the number of lines in theStacksset the lockmessages to trueset the lockscreen to trueset the lockrecent to truepush cardput 0 into totalRecoveredrepeat with s = 1 to the number of lines in theStacksgo stack line s of theStacksget the freesize of this stackadd it to totalrecovered-- doMenu "Compact Stack"if the mouseclick then exit repeatend repeatpop cardput totalRecovered && "bytes recovered."end mouseUp</script> </part> <content> <layer>background</layer> <id>6</id> <text>Utility Functions</text> </content> <content> <layer>background</layer> <id>18</id> <text>This card‚Äôs script contains various useful utility scripts. I keep them all in my Home Stack.</text> </content> <content> <layer>card</layer> <id>2</id> <text>extractFname is a function which returns a file name when given a complete pathname.example:put extractFName(FileName())</text> </content> <content> <layer>card</layer> <id>6</id> <text>function thisFolder returns the folder that contains the current stack. It relies on the functions fileSpec and folderName. It takes no parameters.example:put thisFolder()</text> </content> <content> <layer>card</layer> <id>7</id> <text>The FileSpec function returns a stack‚Äôs name when passed its long name, i.e. it strips the word ‚Äústack ‚Äù from the beginning and the quotation marks from the ends of the long name of the stack.example:put fileSpec(the long name of this stack)</text> </content> <content> <layer>card</layer> <id>11</id> <text>The folderName function returns the name of the folder that a given file is in. You pass it the file‚Äôs complete pathname.example:put folderName(FileName())</text> </content> <content> <layer>card</layer> <id>12</id> <text>The FileList function returns a list of files in a given folder, and optionally in its subfolders too. It can filter for a specific TYPE and can return fullnames (pathnames) or just filenames.Its parameters are: startFolder = a foldername TYPE = fileTYPE fullnames = boolean SubFolders = booleanexample:put FileList(thisFolder(),"",false,true) into cd fld "List" </text> </content> <content> <layer>card</layer> <id>13</id> <text>backup disksCAI CoordinatorDisk CheckerDisk/File RecoveryDiskettesHC for CAIHomeHyperMailmac-digest-stackResAdderScript Manager</text> </content> <content> <layer>card</layer> <id>15</id> <text>peek toggles a simple handler that puts the short name of buttons and fields that the mouse enters into the message box. It‚Äôs handy when you have lots of these objects on a card, and you want to quickly find on.Examplepeek</text> </content> <content> <layer>card</layer> <id>17</id> <text>ver 1.0</text> </content> <name>Utility Functions</name> <script>on peek-- version 1.0 ¬© 1989 Peter J√∂rgensen, Hamiton, NY-- for revealing the ids of buttons and fldsglobal peeking,MsgVis,autodocif peeking is empty then put false into peekingput not peeking into peekingif peeking then put the visible of the Msg into MsgViselse set the visible of the msg to MsgVisput peeking into autodocend peekon mouseEnter-- version 1.0 ¬© 1989 Peter J√∂rgensen, Hamiton, NY-- a utility for seeing the names of HyperCard objects.global peekingif peeking is empty then put false into peekingif peeking then put the name of the targetpass mouseEnterend mouseEnterfunction thisFolder -- version 1.0 ¬© 1989 Peter J√∂rgensen, Hamiton, NYget the long name of this stackget fileSpec (it)return folderName (it)end thisFolderfunction fileSpec LongStackName-- version 1.0 ¬© 1989 Peter J√∂rgensen, Hamiton, NY-- this function returns a stack's short name given it's full name-- useful when using fileName xfcnput LongStackName into specdelete character 1 to 7 of specdelete last character of specreturn specend fileSpecfunction folderName filename-- version 1.0 ¬© 1989 Peter J√∂rgensen, Hamiton, NYrepeatif last char of filename is ":" then exit repeatdelete last char of filenameend repeatdelete last char of filenamereturn filenameend folderNamefunction FileList startFolder,aTYPE,FullNames,SubFolders-- version 1.0 ¬© 1989 Peter J√∂rgensen, Hamiton, NYif startFolder is not empty then put ":" after startFolderput startFolderput empty into TheList-- first the files in this folderget files(startFolder,aType,3) -- XFCN by Guy de Picciottoif it is not empty thenif FullNames thenrepeat with i = 1 to the number of lines in itput StartFolder before line i of itend repeatend ifput it after TheListend if-- next the folders in this folderif SubFolders thenget files(startFolder,"",2) -- XFCN by Guy de Picciottoif it is not empty thenrepeat with f = 1 to the number of lines in itset the cursor to busyput FileList(startFolder& line f of it,aTYPE,FullNames,true)¬¨into tempif temp is not empty then put return & temp after TheListend repeatend ifend ifif line 1 of theList is empty then delete line 1 of theListhide messagereturn TheListend FileListon mouseUp-- version 1.0 ¬© 1989 Peter J√∂rgensen, Hamiton, NY-- This handler just handles mouseUps in the various card buttons-- on this card, rather than have a similar handler in each button's-- scriptif the name of the target contains "button" thenget cd fld visfldif it ‚â† empty then hide cd fld itget last line of cd fld the short name of the targetif the hilite of cd btn "Try it" then do itshow cd fld the short name of the targetput the short name of the target into cd fld visfldend ifpass MouseUpend mouseUpon closecard -- this handler for this card only!if cd fld visfld ‚â† empty then hide cd fld (cd fld visfld)put empty into cd fld visfldhide cd fld "List"pass closecardend closecard</script> </card> card_2198.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>2198</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>5075</owner> <link rel="stylesheet" type="text/css" href="stylesheet_9546.css" /> <part> <id>1</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>46</left> <top>94</top> <right>200</right> <bottom>117</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Show the Scripts</name> <script>on mouseUpshow cd fld "Auto Doc Scripts"show cd btn "Cancel"end mouseUp</script> </part> <part> <id>4</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>46</left> <top>133</top> <right>200</right> <bottom>156</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Install the Scripts</name> <script>on mouseUpshow btn 3show btn 4show btn 5set the scroll of cd fld 1 to 0show cd fld 1end mouseUp</script> </part> <part> <id>6</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>89</left> <top>275</top> <right>166</right> <bottom>295</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Cancel</name> <script>on mouseUphide cd fld 1hide cd fld 2hide btn 3hide btn 4hide btn 5end mouseUp</script> </part> <part> <id>7</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>181</left> <top>275</top> <right>258</right> <bottom>295</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Append</name> <script>on mouseUpput "Stop!" into Titleput "Some knowledge of HyperTalk is necessary for this procedure!" into messget PopAlert (3,1414,Title,mess)if it is 2 then exit mouseUpset the lockmessages to trueput the userlevel into oldlevelset the userlevel to 5push cardput cd fld "Auto Doc Scripts" into AutoDocScriptdelete line 1 to 74 of AutoDocScript -- the original handlersgo cd "User Preferences"doMenu "Copy Card"go HomeAnswer "Append now or save a copy first?" with "Cancel" or "Append" or¬¨"Save A Copy"if it is "Save Copy" then doMenu "Save A Copy..."if it is "Append" then-- replace User Prefs cd with my new one.go cd "User Preferences" of stack "Home"set the cantdelete of this cd to falsedoMenu "Delete Card"go prevdoMenu "Paste Card"-- append the autodoc scripts to the original Home stack scriptget the script of this stackput return & AutoDocScript after itset the script of this stack to it-- open up the script editor for manual mergingAnswer "Merge duplicate handlers."edit the script of this stackend ifpop cardgethomeinfo -- get new settings from new preferences cardset the userlevel to oldlevelend mouseUp</script> </part> <part> <id>8</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>273</left> <top>275</top> <right>350</right> <bottom>295</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Replace</name> <script>on mouseUpput "Stop!" into Titleput "You are about to completely replace your Home stack script!" into messget PopAlert (3,1414,Title,mess)if it is 2 then exit mouseUpset the lockmessages to trueset the lockscreen to trueput the userlevel into oldlevelset the userlevel to 5push cardput cd fld "Auto Doc Scripts" into AutoDocScriptgo cd "User Preferences"doMenu "Copy Card"go homeAnswer "Install now or save a copy?" with "Cancel" or "Install" or¬¨"Save A Copy"if it is "Save Copy" then doMenu "Save A Copy..."if it is "Install" then-- replace old Preference card with the new onego cd "User Preferences" of stack "Home"set the cantdelete of this cd to falsedoMenu "Delete Card"go prevdoMenu "Paste Card"getHomeInfo -- get the new User Preferences Settings-- replace original handlers with new onesset the script of this stack to AutoDocScriptAnswer "AutoDoc handlers have been installed."end ifpop cardset the userlevel to oldlevelend mouseUp</script> </part> <part> <id>10</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>40</left> <top>169</top> <right>201</right> <bottom>190</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Install Mods Field</name> <script>-- card button "Install Mods Field" of card "Autodoc"-- ¬© 1989 Peter J√∂rgensen, Hamilton NYon mouseUpAnswer "Install or Remove AutoDoc Field?"¬¨with "Cancel" or "Remove" or "Install"if it is "Cancel" then exit mouseUpif it is "Install" then PrepStackselseget FileName("STAK")if it is empty then exit MouseUpput it into theStackpush cardset the lockmessages to trueset the lockscreen to truego cd 1 of theStackrepeat with c = 1 to the number of cd fldsif the short name of cd fld c is "modifications" thenshow cd fld cselect cd fld cdoMenu "Clear Field"choose browse toolAnswer "AutoDoc field has been removed."pop cardexit mouseUpend ifend repeatAnswer "AutoDoc field not found!"pop cardend ifend mouseUpon prepStacks-- ¬© 1989 Peter J√∂rgensen, Hamilton NYset the lockmessages to trueset the lockScreen to truepush cardrepeatget FileName("STAK")if it is empty then exit repeatgo card 1 of itcheckAndAddend repeatpop cardset the lockmessages to falsechoose browse toolend prepStackson checkAndAdd -- adds cd fld "modifications" to cd 1 of a stack, if-- it isn't already there.if the cantmodify of this stack is true thenAnswer "This stack cannot be modified." with "OK"exit checkAndAddend ifrepeat with f = 1 to the number of cd fldsif the short name of cd fld f is "modifications" thenAnswer "Card field modifications already exists"¬¨with "OK"exit checkAndAddend ifend repeatput the number of cd flds into lastFieldput lastField + 1 into myFielddoMenu "New Field"set the name of cd fld myfield to "modifications"set the rect of cd fld myfield to 8,24,502,331set the style of cd fld myfield to "Scrolling"set the textfont of cd fld myfield to "Monaco"hide cd fld "Modifications"Answer "Auto Doc fld has been added."choose browse toolend checkAndAdd</script> </part> <part> <id>11</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>207</left> <top>168</top> <right>246</right> <bottom>213</bottom> </rect> <style>transparent</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>1016</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>copy</name> <script>on mouseUp-- ¬© 1989 Peter J√∂rgensen, Hamilton NYput the userlevel into oldlevelset the userlevel to 5select cd btn "Install Mods Field"doMenu "Copy Button"set the lockmessages to truego homedoMenu "Paste Button"go backchoose browse toolset the userlevel to oldlevelend mouseUpon naught-- commmentadd 1 to nothingend naught</script> </part> <part> <id>5</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>27</left> <top>69</top> <right>477</right> <bottom>272</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>install</name> <script></script> </part> <part> <id>9</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>10</left> <top>62</top> <right>512</right> <bottom>274</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>Auto Doc Scripts</name> <script></script> </part> <part> <id>12</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>394</left> <top>306</top> <right>488</right> <bottom>322</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>13</textHeight> <name></name> <script></script> </part> <content> <layer>background</layer> <id>6</id> <text>AutoDoc Scripts</text> </content> <content> <layer>background</layer> <id>18</id> <text>AutoDoc is a series of handlers which when installed in the home stack, automatically document changes you make to scripts in any stack you wish. Autodoc works in stacks whose card 1 contains a card field called "modifications". Whenever the userlevel is 5. Use the "Install Mods Field" button to add the field to existing stacks. Once the handlers are installed in your Home stack, you will be given the opportunity to add the field to any new stack you create. The "Install Mods Field" button can also remove the field... copy it to your Home stack.</text> </content> <content> <layer>card</layer> <id>5</id> <text> Because the handlers making up the AutoDoc system must reside in your Home stack script, installation might be a little tricky. First, if you are using the standard, unadulterated Apple Home Stack feel free to choose the "Replace" option. If you have added some handlers of your own, or modified some of the handlers that came with the original Home stack, then choose "Append". This will put a copy of the appropriate handlers AFTER all existing handlers in your Home Stack Script. The Script editor will then open and you should merge handlers that may appear more than once. The following handlers are likely to need merging after you "Append": on OpenStack on CloseStack on OpenBackground on CloseBackground on OpenCard on CloseCard on GetHomeInfo on StartUp on ResumeHopefully I will work out a totally automated installation procedure for these handlers, but for now, this is all I've had time to do.Good Luck, and remember to WORK ON A COPY OF YOUR HOME STACK.</text> </content> <content> <layer>card</layer> <id>9</id> <text>-- Original Home Stack scripts.on xy -- puts the mouse location in the message box until a mouse click repeat until the mouse is down put the mouseLoc end repeatend xyon c choose browse tool doMenu "Card Info..."end con b choose browse tool doMenu "Bkgnd Info..."end bon s choose browse tool doMenu "Stack Info..."end son startUp getHomeInfo pass startUp -- to a startUp XCMD, if presentend startUpon resume getHomeInfo pass resume -- to a resume XCMD, if presentend resumeon searchScript pattern,stackName -- search all scripts of a stack set lockMessages to true if stackName is not empty then go to stack stackName if the script of this stack contains pattern then edit script of this stack repeat with i = 1 to the number of bkgnds go to card 1 of bkgnd i if the script of this bkgnd contains pattern then edit script of bkgnd repeat with j = 1 to the number of bkgnd buttons if the script of bkgnd button j contains pattern then edit script of bkgnd button j end repeat repeat with j = 1 to the number of bkgnd fields if the script of bkgnd field j contains pattern then edit script of bkgnd field j end repeat end repeat repeat with i = 1 to the number of cards go card i if the script of this card contains pattern then edit script of this card repeat with j = 1 to the number of card buttons if the script of card button j contains pattern then edit script of card button j end repeat repeat with j = 1 to the number of card fields if the script of card field j contains pattern then edit script of card field j end repeat end repeat set lockMessages to falseend searchScript-- End of original handlers-- AutoDoc 1.0 scripts-- ¬© 1989 Peter J√∂rgensen, Hamilton, NYon getHomeInfo -- Merge with or replace original script! global stacks,applications,documents,userName global override,autocomp,compLimit -- new globals set lockScreen to true set lockMessages to true push this cd go to cd "User Preferences" of stack "Home" put cd fld "User Name" into userName set userLevel to cd fld "User Level" set powerKeys to the hilite of btn "Power Keys" set blindTyping to the hilite of btn "Blind Typing" put the hilite of btn "autocomp" into autocomp -- new put the hilite of btn "No Autodoc" into override -- new put cd fld "Compaction Limit" into compLimit -- new put fld "paths" of cd "stacks" into stacks put fld "paths" of cd "applications" into applications put fld "paths" of cd "documents" into documents pop cdend getHomeInfoon openStack -- Merge with or replace original handler! global autodoc,curstack put checkauto() into autodoc put the long name of this stack into curStack getScript "stack" pass OpenStackend openStackon CloseStack -- Merge with or replace original handler! checkScript "stack" global complimit,autocomp if autocomp then if the Freesize of this stack > complimit * 1000 then Answer "Compact stack?" with "No" or "Yes" if it is "Yes" then doMenu "Compact Stack" end if end if Pass CloseStackend CloseStackon openBackground -- Merge with or replace original handler! global curBg put the long name of this background into CurBg getScript "bg" pass openBackgroundend openBackgroundon CloseBackground -- Merge with or replace original handler! checkScript "bg" pass CloseBackgroundend CloseBackgroundon openCard -- Merge with or replace original handler! global curCd put the long name of this card into CurCd getScript "card" pass OpenCardend openCardon CloseCard -- Merge with or replace original handler! idle checkScript "card" Pass CloseCardend CloseCardon deletefield stop pass deletefieldend deletefieldon deletebutton stop pass deletebuttonend deletebuttonon checkScript anObject -- (c) 1988 Peter J√∂rgensen - Hamilton, NY global stackScript,bgScript,CardScript,autodoc,theObject if autodoc is empty then put false into autodoc if autodoc then if anObject = "stack" then get the script of this stack if it is not StackScript then documentChanges "Stack","" end if put false into autodoc else if anObject = "bg" then get the script of this bg if it is not bgScript then documentChanges "bg",trun (the long name of this bg) end if else if anObject = "card" then put empty into theObject get the script of this cd if it is not cardScript then documentChanges "card",trun (the long name of this card) end if end if end ifend checkScripton stop global theObject put empty into theObjectend stopon newStack Answer "Install autodoc in this stack?" with "No" or "Yes" if it is "No" then exit newStack checkAndAdd -- cd fld "modifications"end newStackon NewVersion global AutoDoc,theObject,override put empty into theObject put override into curoverride put false into override put empty into autodoc if autodoc is empty then put checkauto() into autodoc if AutoDoc then push this card set the lockmessages to true Answer "OK to clear modification record?" with "NO!" or "OK"¬¨ or "Save A Copy" if it is "NO!" then exit NewVersion if it is "Save A Copy" then doMenu "Save a copy..." get line 1 of cd fld "modifications" of cd 1 if char 1 of it is not "V" then put 0 into version else put word 2 of it into version Ask "Present version is: "&version&"; change to:" with version+.1 if it is empty then exit NewVersion put "Version"&& it && "of"&& the name of this stack &&¬¨ "as of " & the date & " at " & the time&¬¨ return into cd fld "modifications" of cd 1 set the script of this stack to clearmods(the script of this stack) lock screen repeat with b = 1 to the number of bgs set the cursor to watch go cd 1 of bg b set the script of this bg to clearmods(the script of this bg) repeat with bb = 1 to the number of bg btns set the script of bg btn bb to clearmods(the script of bg btn bb) end repeat repeat with f = 1 to the number of flds set the script of fld f to clearmods(the script of fld f) end repeat end repeat repeat with c = 1 to the number of cds set the cursor to plus go cd c set the script of this cd to clearmods(the script of this cd) repeat with b = 1 to the number of btns set the script of btn b to clearmods(the script of btn b) end repeat repeat with cf = 1 to the number of cd flds set the script of cd fld cf to clearmods(the script of cd fld cf) end repeat end repeat end if pop card getscript "stack" getscript "bg" getscript "card" put curoverride into override -- ¬© 1988 Peter Jorgensen -- Script for clearing modification documentation from scripts of -- all objects in a stack and incrementing version number on -- card field "Modifications" of card 1 of stack and clearing -- modification records from same field.end NewVersionfunction clearMods aScript put "Modified " & "on" into theKey if aScript contains theKey then repeat with ln = (the number of lines in aScript) down to 1 set the cursor to busy if line ln of aScript contains theKey then delete line ln of aScript end if end repeat end if return aScriptend clearModsfunction extractHandler hdlNo,aScript --Modified by Peter J√∂rgensen on Tuesday, November 14, 1989 at 11:16:38 AM global EndofPrev if hdlNo = 1 then put 1 into EndOfPrev repeat with ScriptLine = EndOfPrev to the number of lines in aScript set the cursor to busy if word 1 of line scriptLine of aScript is in "on,function" then put word 2 of line ScriptLine of aScript into theMessage put line ScriptLine of aScript into HdlrScript repeat with hdlrLine = ScriptLine+1 to the number of lines in aScript set the cursor to busy put return&line hdlrLine of aScript after HdlrScript if (line hdlrLine of aScript contains "send") then next repeat if (line hdlrLine of aScript contains "end")¬¨ and (line hdlrLine of aScript contains theMessage) then put hdlrLine into EndOfPrev return HdlrScript end if end repeat end if end repeat return "No more Handlers"end extractHandleron documentChanges anObject,ObjectName global newscript,oldScript,theScript,StackScript,CardScript,¬¨ BgScript,username Answer "Documenting " &anObject with "Cancel" or"OK" or "Save Copy" if it is "Cancel" then exit documentChanges if it is "Save Copy" then doMenu "Save a Copy..." put the script of anObject into newScript if (anObject contains "button") or (anObject contains "field") then put theScript into oldScript else if anObject contains "stack" then put StackScript into oldScript else if anObject contains "bkgnd" then put bgScript into oldScript else put CardScript into oldScript put 1 into hndlerNo repeat set the cursor to busy -- compare the handlers, and document the changed ones. put extractHandler(hndlerNo,newScript) into aHandler if aHandler = "No more Handlers" then exit repeat if not (oldScript contains aHandler) then put return & "-" & "-" & "Modified by " & username && "on " & the long date &¬¨ " at " & the long time after line 1 of aHandler end if put aHandler & return & return after documentedScript add 1 to hndlerNo end repeat put "-" & "-" & "Modified " & "on " & the long date &¬¨ "-" & the long time & return before documentedScript set the script of anObject to documentedScript put ObjectName &" modified by "& username&& "on " & the long date &&¬¨ "at" && the time & return after cd fld "Modifications" of cd 1end documentChangeson getScript anObject global stackScript,bgScript,CardScript,autodoc,CurStack,CurBg,CurCd lock screen set the lockmessages to true if autodoc is empty then put false into autodoc if AutoDoc then if anObject is "stack" then put the script of this stack into stackScript else if anObject is "bg" then put the script of this bg into bgScript else if anObject is "card" then put the script of this cd into CardScript end if end if set the lockscreen to false set the lockmessages to falseend getScripton idle global theObject,theScript,AutoDoc,CurStack,CurBg,CurCd if the long name of this stack is not CurStack then put the long name of this stack into CurStack put checkauto() into autodoc getScript "stack" end if if the long name of this background is not CurBg then put the long name of this background into CurBg getScript "bg" end if if the long name of this cd is not CurCd then stop put the long name of this card into CurCd getscript "card" end if if AutoDoc then if theObject is not empty then if the mouseloc is not within the rect of theObject then if the script of theObject is not theScript then documentchanges theObject,trun(the long name of theObject) end if put empty into theObject put empty into theScript end if end if end if pass idleend idlefunction checkAuto global override if override is empty then put false into override if (the userlevel is 5) and (not override) then set the lockmessages to true set the lockscreen to true push cd go cd 1 repeat with f = 1 to the number of cd flds if the short name of cd fld f is "modifications" then pop cd return true end if end repeat pop cd end if return falseend checkAutofunction trun aName put offset("of stack",aName) into theTail delete char (theTail-1) to (the number of chars in aName) of aName return aNameend trunon mods global FldSettings if FldSettings is empty then push card go cd 1 put the rect of cd fld "Modifications" into line 1 of FldSettings put the style of cd fld "Modifications" into line 2 of FldSettings put the visible of cd fld "Modifications" into line 3 of FldSettings put the textfont of cd fld "Modifications" into line 4 of FldSettings put the textsize of cd fld "Modifications" into line 5 of FldSettings put the textstyle of cd fld "Modifications" into line 6 of FldSettings put the textalign of cd fld "Modifications" into line 7 of FldSettings set the rect of cd fld "Modifications" of cd 1 to 8,24,502,331 set the style of cd fld "Modifications" to "Scrolling" show cd fld "Modifications" of cd 1 set the textfont of cd fld "Modifications" to "Monaco" set the textsize of cd fld "Modifications" to 12 set the textstyle of cd fld "Modifications" to "plain" set the textalign of cd fld "Modifications" to "left" else set the rect of cd fld "Modifications" to line 1 of FldSettings set the style of cd fld "Modifications" to line 2 of FldSettings set the visible of cd fld "Modifications" to line 3 of FldSettings set the textfont of cd fld "Modifications" to line 4 of FldSettings set the textsize of cd fld "Modifications" to line 5 of FldSettings set the textstyle of cd fld "Modifications" to line 6 of FldSettings set the textalign of cd fld "Modifications" to line 7 of FldSettings put empty into FldSettings pop card end ifend modson mouseEnter -- automatic script getter for buttons and flds -- (c) 1988 Peter J√∂rgensen - Hamilton, NY global theObject,theScript,AutoDoc,peeking if autodoc is empty then put false into autodoc if autoDoc then if the name of the target contains "bkgnd button" then put "bg button id " into theObject else if the name of the target contains "button" then put "button id " into theObject else if the name of the target contains "card field" then put "card field id " into theObject else if the name of the target contains "field" then put "field id " into theObject end if put the id of the target after theObject if peeking then put theObject end if put the script of theObject into theScript end if pass mouseEnterend mouseEnteron checkAndAdd -- adds cd fld "modifications" to cd 1 of a stack, if -- it isn't already there. -- (c) 1988 Peter J√∂rgensen - Hamilton, NY if the cantmodify of this stack is true then Answer "This stack cannot be modified." with "OK" exit checkAndAdd end if repeat with f = 1 to the number of cd flds if the short name of cd fld f is anObject then Answer ObjectKind&&quote& anObject&quote&&"already exists"¬¨ with "OK" exit checkAndAdd end if end repeat put the number of cd flds into lastField put lastField + 1 into myField doMenu "New Field" set the name of cd fld myfield to "modifications" set the rect of cd fld myfield to 8,24,502,331 set the style of cd fld myfield to "Scrolling" set the textfont of cd fld myfield to "Monaco" hide cd fld "Modifications" Answer "Auto Doc fld has been added." choose browse toolend checkAndAdd</text> </content> <content> <layer>card</layer> <id>12</id> <text>ver 1.1</text> </content> <name>AutoDoc</name> <script>on getHomeInfo -- Merge with original scriptglobal stacks,applications,documents,userNameglobal override,autocomp,compLimit -- new globalsset lockScreen to trueset lockMessages to truepush this cdgo to cd "User Preferences" of stack "Home"put cd fld "User Name" into userNameset userLevel to cd fld "User Level"set powerKeys to the hilite of btn "Power Keys"set blindTyping to the hilite of btn "Blind Typing"put the hilite of btn "autocomp" into autocomp -- newput the hilite of btn "No Autodoc" into override -- newput cd fld "Compaction Limit" into compLimit -- newput fld "paths" of cd "stacks" into stacksput fld "paths" of cd "applications" into applicationsput fld "paths" of cd "documents" into documentspop cdend getHomeInfoon closeCardhide cd fld 2hide cd fld 1hide btn 3hide btn 4hide btn 5pass closeCardend closeCard</script> </card> card_6714.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>6714</id> <filler1>0</filler1> <bitmap>BMAP_5752.pbm</bitmap> <cantDelete> <true /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>5075</owner> <link rel="stylesheet" type="text/css" href="stylesheet_9546.css" /> <part> <id>5</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>6</left> <top>64</top> <right>504</right> <bottom>302</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Courier</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>13</textHeight> <name>MS Works 2.0 (wp)@804</name> <script></script> </part> <part> <id>6</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>17</left> <top>37</top> <right>110</right> <bottom>58</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Get File</name> <script>--Modified on Tuesday, December 18, 1990-10:20:15 AMon mouseUp--Modified by Peter J√∂rgensen on Tuesday, December 18, 1990 at 10:20:15 AM-- card button "Get File" of card "Simple Editor"-- ¬© 1989 Peter J√∂rgensenglobal theFileanswer file "Open a text file‚Ä¶" of type "TEXT"if it is empty or the result is "cancel" then exit mouseUpput it into theFile -- XFCN by Steve Mallerif theFile is empty then exit mouseUpput extractFName(theFile) into fld 1set the name of cd fld id 5 to fld 1--filetofield "card field id 5",theFile -- XCMD by Kevin Calhoun--if the result is not empty then put the result into fld 1put empty into cd fld id 5open file theFileread from file theFile until returnrepeat until it is empty or the number of chars in cd fld id 5 > 30000set the cursor to busyput it after cd fld id 5read from file theFile until returnif the mouseclick then exit repeatend repeatclose file theFileend mouseUp</script> </part> <part> <id>7</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>378</left> <top>36</top> <right>488</right> <bottom>57</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Delete This File</name> <script>on mouseUp-- card button "Delete This File" of card "Simple Editor"-- ¬© 1989 Peter J√∂rgensen, Hamilton NYglobal theFileif theFile is empty then DeleteFileelsePut "Stop" into Titleput "Delete " & quote & theFile & quote && "?" into theMessageget PopAlert (3,1414,Title,theMessage)if it is 2 then exit mouseUpelse put deleteAfile (theFile) into tempput empty into theFileput empty into cd fld id 5put empty into fld 1end ifend mouseUp</script> </part> <part> <id>8</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>25</left> <top>304</top> <right>61</right> <bottom>337</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>1007</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUp-- card button "Print" of card "Simple Editor"-- ¬© 1989 Peter J√∂rgensen, Hamilton NYput "card field id 5" into itput "Now Printing..." into msgPrettyPrintField card field 1, the textFont of it, the textSize of it, ¬¨the textstyle of it -- XFCN by Mark Scherflinghide the msgend mouseUp</script> </part> <part> <id>9</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>69</left> <top>303</top> <right>107</right> <bottom>339</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>1004</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>save</name> <script>on mouseUp-- card button "save file" of card "Simple Editor"-- ¬© 1989 Peter J√∂rgensen, Hamilton NYfieldToFile "cd fld id 5" -- XCMD by Kevin Calhounget extractFname (the result)if it is "Cancel" then exit mouseUPput it into fld 1set the name of cd fld id 5 to itend mouseUp</script> </part> <part> <id>11</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>288</left> <top>302</top> <right>306</right> <bottom>322</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>26635</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>about</name> <script>on mouseUpshow cd fld "about"wait until the mouse is downhide cd fld "about"end mouseUp</script> </part> <part> <id>12</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>111</left> <top>67</top> <right>388</right> <bottom>241</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>about</name> <script></script> </part> <part> <id>13</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>313</left> <top>303</top> <right>384</right> <bottom>325</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Clear</name> <script>on mouseUpput empty into cd fld id 5put empty into fld id 6end mouseUp</script> </part> <part> <id>14</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>394</left> <top>306</top> <right>488</right> <bottom>322</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>13</textHeight> <name></name> <script></script> </part> <content> <layer>card</layer> <id>12</id> <text>This card allows you to peek at the contents of a text file. This is useful when you are looking for a file to import, or wondering what a certain file(s) is. The delete button will delete the file you are currently peeking. The ImageWriter icon button will print the file to the selected printer. The document icon button will save the field to a new text file.</text> </content> <content> <layer>card</layer> <id>14</id> <text>ver 1.0</text> </content> <name>Simple Editor</name> <script>-- Simple Editor Card-- version 1.0-- ¬© 1989 Peter J√∂rgensen, Hamilton, NYfunction extractFname aPathName-- this handler returns a file's name given it's full pathname-- ¬© 1989 Peter J√∂rgensenrepeatget offset(":",aPathName)if it is 0 then return aPathNamedelete char 1 to it of aPathNameend repeatend extractFname</script> </card> card_8755.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>8755</id> <filler1>0</filler1> <bitmap>BMAP_9187.pbm</bitmap> <cantDelete> <true /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>2848</owner> <link rel="stylesheet" type="text/css" href="stylesheet_9546.css" /> <content> <layer>background</layer> <id>5</id> <text>Peter's IIcx:¬†Hyper:Apple Stacks:HyperMacintalk</text> </content> <content> <layer>background</layer> <id>1</id> <text>TheSpeech</text> </content> <content> <layer>background</layer> <id>2</id> <text>SaySayphoneticSetpitchSetrateSing</text> </content> <content> <layer>background</layer> <id>12</id> <text>MacintalkInstalledRound</text> </content> <content> <layer>background</layer> <id>3</id> <text>0.512200,natural2^CopyHyperXResHomePhonemePhonemesSelectionTurnSpeechOffTurnSpeechOndissolveforfromhomelongName,theFilelowerToUpperquote,longNameselectiontest)</text> </content> <name>Script Investigator</name> <script></script> </card> card_2725.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>2725</id> <filler1>0</filler1> <bitmap>BMAP_8522.pbm</bitmap> <cantDelete> <true /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>2848</owner> <link rel="stylesheet" type="text/css" href="stylesheet_9546.css" /> <part> <id>4</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>3</left> <top>76</top> <right>116</right> <bottom>94</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Sort</name> <script>on mouseUpput sortlines(fld globals) into fld "globals"end mouseUp</script> </part> <content> <layer>background</layer> <id>2</id> <text>ArrowkeyCantunderstandCloseBackground CloseCardCloseFieldCloseStackControlkeyDeleteBackgroundDeleteButtonDeleteCardDeleteFieldDeleteStackDoMenuEnterKeyFunctionkeyHelpIdleMouseDownMouseEnterMouseLeaveMouseStillDownMouseUpMouseWithinNewBackgroundNewButtonNewCardNewFieldNewStackOpenBackgroundOpenCardOpenFieldOpenStackQuitResumeReturnKeyStartupSuspend</text> </content> <content> <layer>background</layer> <id>1</id> <text>¬¨&&&*+-/<<=<>=>>=^absaddafterandandannuityansweraskatanautohiliteaveragebackgroundbarndoorsbeepbeforebgbkgndblackblindtypingboldboxbrushbtnbtnsbusybuttoncardcdcenteredcharcharschartonumcheckchooseclickclicklocclosecommandkeycompoundcontainscontainsconvertcoscursorcursordatedeletedialdissolvedivdividedodowndragdragspeedediteditbkgndeffectelseemptyendexitexpexp1exp2falsefastfieldfilefilledfindfirstfldforfreesizegetglobalgogridhidehighlighthilitehomehyperCardiconifinirisisisititalicitemitemslanguagelastleftlengthlinelineslinesizelnln1loclocklockmessageslockrecentlockscreenlocktextlog2longmaxminmodmousemouseclickmousehmouselocmousevmsgmultiplemultiplymultispacenextnotnumbernumberformatnumtocharofoffsetonopaqueopenoptionkeyoroutlinepaintparamparamcountparamspasspatternplainplaypolysidespoppowerkeysprevpreviousprintprintingpushputquoteradiorandomreadrectrectanglerepeatresetresultreturnrightroundroundscriptscrollscrollingsecondsselectionselectedlineselectechunksendsetshadowshiftkeyshortshowshowlinesshownamesinsizeslowslowlysortsoundspacesqrtstackstylesubtracttargettextaligntextfonttextheighttextsizetextstylethethenthistickstimetotooltransparenttruetrunctypeuntilupuserlevelvalueveryvisiblevisualwaitwidemarginswipewordwordswritezoom</text> </content> <content> <layer>background</layer> <id>12</id> <text></text> </content> <name>knowns</name> <script></script> </card> card_5618.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>5618</id> <filler1>0</filler1> <bitmap>BMAP_4783.pbm</bitmap> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>3642</owner> <link rel="stylesheet" type="text/css" href="stylesheet_9546.css" /> <part> <id>1</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>191</left> <top>111</top> <right>483</right> <bottom>129</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Monaco</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>the String</name> <script></script> </part> <part> <id>2</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>85</left> <top>134</top> <right>236</right> <bottom>151</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <true /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Stack script</name> <script></script> </part> <part> <id>3</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>85</left> <top>150</top> <right>236</right> <bottom>167</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <true /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Bkgnd scripts</name> <script></script> </part> <part> <id>4</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>85</left> <top>166</top> <right>236</right> <bottom>183</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <true /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Card scripts</name> <script></script> </part> <part> <id>5</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>85</left> <top>182</top> <right>236</right> <bottom>199</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <true /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Bg field scripts</name> <script></script> </part> <part> <id>6</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>85</left> <top>198</top> <right>236</right> <bottom>215</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <true /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Bg button scripts</name> <script></script> </part> <part> <id>7</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>85</left> <top>214</top> <right>236</right> <bottom>231</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <true /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Cd field scripts</name> <script></script> </part> <part> <id>8</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>85</left> <top>230</top> <right>236</right> <bottom>247</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <true /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Cd button scripts</name> <script></script> </part> <part> <id>9</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>66</left> <top>60</top> <right>188</right> <bottom>79</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Stacks to Search:</name> <script>on mouseUpput filename("STAK") into cd fld "the Stacks" -- XFCN by Steve Mallertype tabend mouseUp</script> </part> <part> <id>10</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>188</left> <top>60</top> <right>487</right> <bottom>93</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Monaco</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>The Stacks</name> <script>on mouseUpgo meend mouseUp</script> </part> <part> <id>11</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>166</left> <top>252</top> <right>218</right> <bottom>274</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Go</name> <script>on mouseUp-- ¬© 1989 Peter J√∂rgensenglobal theHitsput the hilight of btn "Stack script" into StackScriptput the hilite of btn "Bkgnd scripts" into BgScriptput the hilite of btn "Card Scripts" into CdScriptput the hilite of btn "Bg field scripts" into BgFScriptsput the hilite of btn "Bg Button Scripts" into BgBScriptsput the hilite of btn "Cd Field Scripts" into CFScriptsput the hilite of btn "Cd Button Scripts" into CBScriptsput the hilite of btn "Edit Scripts" into doEditif doEdit thenAnswer "Edit each script as found?" with "Yes" or "No"if it is "No" then put false into doEditend ifput the hilite of btn "Stop on first found" into OneOnlyput cd fld "The String" into theStringset the lockmessages to trueset the lockscreen to trueset the lockrecent to trueput empty into theHitspush cardput cd fld "The Stacks" into theStacksif the hilite of cd btn "All stacks in this folder" thenput the hilite of cd btn "Sub-folders too!" into subsput FileList (folderName (theStacks),"STAK",true,subs) into theStacksend ifrepeat with s = 1 to the number of lines in theStacksgo cd 1 of line s of theStacksif StackScript then Searchit stack, theString, doEdit, OneOnlyif BgScript thenrepeat with b = 1 to the number of bkgndsgo cd 1 of bg bif BgFScripts thenrepeat with f = 1 to the number of fldsSearchIt ("fld"&&f),theString,doEdit,OneOnlyend repeatend ifif BgBScripts thenrepeat with bb = 1 to the number of bg btnsSearchIt ("bg btn"&&bb),theString,doEdit,OneOnlyend repeatend ifSearchIt background, theString, doEdit, OneOnlyend repeatgo cd 1end ifif CdScript or CFScripts or CBScripts thenrepeat with c = 1 to the number of cdsgo cd cif CdScript then searchIt ("card"&&c), theString, doEdit, OneOnlyif CFScripts thenrepeat with f = 1 to the number of cd fldsSearchIt ("cd fld"&&f),theString,doEdit,OneOnlyend repeatend ifif CBScripts thenrepeat with cb = 1 to the number of btnsSearchIt ("btn"&&cb),theString,doEdit,OneOnlyend repeatend ifend repeatend ifend repeat -- looping through all the stackspop cardif theHits is empty then put "None found!" into theHitsput theHits into cd fld "Hits"hide msgbeepend mouseUpon SearchIt anObject, aString, EditIt, Stop-- ¬© 1989 Peter J√∂rgensenglobal theHitsif the name of anObject contains "stack" then put the name of anObjectelse put the name of anObject into item 2 of the msgif (the script of anObject contains aString) or (aString is empty) thenif EditIt then edit script of anObjectelse put the long name of anObject & return after theHitsif Stop thenhide msgpop cardput theHits into cd fld "Hits"exit to HyperCardend ifend ifif the mouseclick thenpop cardput theHits into cd fld "Hits"put return & "*** Cancelled by user!***" after cd fld "Hits"hide msgexit to HyperCardend ifend SearchIt</script> </part> <part> <id>13</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>27</left> <top>155</top> <right>72</right> <bottom>177</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>All</name> <script>on mouseUprepeat with b = 1 to 7set the hilite of btn b to trueend repeatend mouseUp</script> </part> <part> <id>14</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>20</left> <top>186</top> <right>76</right> <bottom>208</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Toggle</name> <script>on mouseUprepeat with b = 1 to 7set the hilite of btn b to not the hilite of btn bend repeatend mouseUp</script> </part> <part> <id>15</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>28</left> <top>266</top> <right>142</right> <bottom>283</bottom> </rect> <style>radiobutton</style> <showName> <true /> </showName> <highlight> <true /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Edit Scripts</name> <script>on mouseUpset the hilight of btn "List Scripts" to not the hilite of meend mouseUp</script> </part> <part> <id>16</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>28</left> <top>282</top> <right>142</right> <bottom>299</bottom> </rect> <style>radiobutton</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>List Scripts</name> <script>on mouseUpset the hilight of btn "Edit Scripts" to not the hilite of meend mouseUp</script> </part> <part> <id>17</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>28</left> <top>302</top> <right>176</right> <bottom>319</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Stop on First found</name> <script></script> </part> <part> <id>19</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>15</left> <top>80</top> <right>187</right> <bottom>96</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>All Stacks in this folder</name> <script></script> </part> <part> <id>20</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>15</left> <top>96</top> <right>187</right> <bottom>112</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Sub-folders too!</name> <script></script> </part> <part> <id>23</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>318</left> <top>299</top> <right>455</right> <bottom>320</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Print These Scripts</name> <script>on mouseUp-- ¬© 1989 Peter J√∂rgensenpush cardset the lockscreen to trueset the lockmessages to trueset the lockrecent to trueput cd fld "Hits" into theHitsput "Scripts containing "&quote&cd fld "the String" && "as of" &&¬¨the long date && "at" && the long time into theScriptrepeat with i = 1 to the number of lines in theHitsget line i of theHitsif it is empty then next repeatPut "Script of " & it & return after theScriptif word 1 of it is "stack" thenput it into theStackput "stack" into itelseput offset("of stack",it) into tailput char (tail + 3) to (the number of chars in it) of it into theStackdelete char tail to (the number of chars in it) of itend ifgo theStackget script of itput it & return after theScriptput smallEnuf(theScript) into theScriptend repeatpop cardput return & return & "End of script listings for Scripts that contain "&¬¨quote & cd fld "the string" & quote & "." after theScriptput return & "TextStream XCMD by Kevin Calhoun" after theScriptput return & "Script Manager Utilites ¬© 1989 Peter J√∂rgensen"put "Sending scripts to choosen printer."textStream "theScript"-- XCMD by Kevin Calhounhide msgend mouseUpfunction SmallEnuf someText-- ¬© 1989 Peter J√∂rgensenif the number of chars in someText >25000 thenget the msgbeepput "Sending scripts to choosen printer."textStream "sometext"-- XCMD by Kevin Calhounput itreturn emptyelse return someTextend SmallEnuf</script> </part> <part> <id>21</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>145</left> <top>276</top> <right>238</right> <bottom>298</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Print Scripts</name> <script>on mouseUp-- ¬© 1989 Peter J√∂rgensenget cd fld "the Stacks"if it is empty then get fileName("STAK") -- XFCN by Steve Mallerif it is empty then exit mouseUpput it into theStackput the hilight of btn "Stack script" into IncludeStackput the hilight of btn "Bkgnd scripts" into IncludeBgsput the hilight of btn "Card scripts" into IncludeCdsput the hilight of btn "Bg field scripts" into IncludeBgFldsput the hilight of btn "Bg button scripts" into IncludeBgBtnsput the hilight of btn "Cd field scripts" into IncludeCdFldsput the hilight of btn "Cd button scripts" into IncludeCdBtnspush cardset the lockscreen to trueset the lockmessages to trueset the lockrecent to truego theStackput "Scripts of "& theStack & return into theScriptput "as of "& the long date && "at"&& the long time & return¬¨after theScriptput "Number of Backgrounds: "& the number of bkgnds & return after theScriptput "Number of Cards: "& the number of cds & return after theScriptput return after theScriptPut "Script of stack:" & return after theScriptif IncludeStack thenget the script of this stackput "Printing Stack Script..."if it is not empty then put it & return after theScriptelse put "Empty" after theScriptelse put "Cancelled..." after theScriptput smallEnuf(theScript) into theScriptput return & "Backgrounds ************************ "& return¬¨after theScriptrepeat with b = 1 to the number of bkgndsput "Printing Background number " & b&& "statistics."put return&"Background Number "& b & space after theScriptput "=" && quote & the short name of bkgnd b after theScriptput quote & return after theScriptput "Number of Background buttons:"&& the number of bg btns &¬¨return after theScriptput "Number of Background fields:"&& the number of bg flds &¬¨return & return after theScriptgo cd 1 of bg bif IncludeBgs thenput "Script of Background " & return after theScriptget the script of this bgput "Printing script of Background number " & b & "."if it is not empty then put it & return & return after theScriptelse put "Empty script." & return & return after theScriptend ifput smallEnuf(theScript) into theScriptif IncludeBgBtns thenrepeat with bb = 1 to the number of bg btnsput "Script of Background Button " & bb & space after theScriptput "=" && quote & the short name of bg btn bb& quote &&¬¨state("bg btn"&&bb) & return after theScriptget the script of bg btn bbput "Printing Script of Background button " & bb& "."if it is not empty then put it & return & return after theScriptelse put "Empty script." & return & return after theScriptput smallEnuf(theScript) into theScriptend repeat -- bg buttonsend ifif IncludeBgFlds thenrepeat with f = 1 to the number of bg fldsput "Script of Background Field " & f & space after theScriptput "=" && quote & the short name of bg fld f & quote &&¬¨state("fld"&& f) & return after theScriptget the script of bg fld fput "Printing Script of Background field " & f& "."if it is not empty then put it & return after theScriptelse put "Empty" & return after theScriptput smallEnuf(theScript) into theScriptend repeat -- bg fieldsend ifend repeat -- bgsput return & "Cards ************************ " & return¬¨after theScriptrepeat with c = 1 to the number of cdsgo cd cput "Printing Statistics of Card " & c& "."put "Card Number "& c & space after theScriptput ("=" && quote & the short name of cd c) after theScriptput quote&return after theScriptput "Number of Card buttons:"&& the number of btns &¬¨return after theScriptput "Number of Card fields:"&& the number of cd flds &¬¨return & return after theScriptif IncludeCds thenput "Script of Card: " & return after theScriptget the script of this cdput "Printing Script of Card " & c& "."if it is not empty then put it & return & return after theScriptelse put "Empty script." & return & return after theScriptend ifput smallEnuf(theScript) into theScriptif IncludeCdBtns thenrepeat with cb = 1 to the number of cd btnsput "Printing Script of Card button " & cb& "."put "Script of Card Button " & cb & space after theScriptput ("=" && quote & the short name of btn cb & quote &&¬¨state("btn"&& cb) & return) after theScriptget the script of btn cbif it is not empty then put it & return & return after theScriptelse put "Empty script." & return & return after theScriptput smallEnuf(theScript) into theScriptend repeat -- cd buttonsend ifif IncludeCdFlds thenrepeat with f = 1 to the number of cd fldsput "Printing Script of Card Field " & f& "."put "Script of Card Field " & f & space after theScriptput "=" && quote & the short name of cd fld f & quote &&¬¨state("cd fld"&& f) & return after theScriptget the script of cd fld fif it is not empty then put it & return & return after theScriptelse put "Empty script." & return & return after theScriptput smallEnuf(theScript) into theScriptend repeat -- cd fieldsend ifend repeat -- cardsput return & return & "End of script listings for Stack "&¬¨quote & theStack & quote & "." after theScriptput return & "TextStream XCMD by Kevin Calhoun" after theScriptput return & "Script Manager Utilites ¬© 1989 Peter J√∂rgensen"pop cardput "Sending scripts to choosen printer."textStream "theScript"-- XCMD by Kevin Calhounhide msgend mouseUpfunction state anObject-- ¬© 1989 Peter J√∂rgensenif the visible of anObject then return "which is visible."else return "which is invisible."end statefunction SmallEnuf someText-- ¬© 1989 Peter J√∂rgensenif the number of chars in someText >25000 thenget the msgbeepput "Sending scripts to choosen printer."textStream "sometext" -- XCMD by Kevin Calhounput itreturn emptyelse return someTextend SmallEnuf</script> </part> <part> <id>18</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>244</left> <top>130</top> <right>484</right> <bottom>297</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Monaco</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name>Hits</name> <script>on mouseUpif the rect of me is "14,111,488,297" thenset the locktext of me to falseclick at the clicklocselect the selectedlineset the locktext of me to trueAnswer "Print, Edit or Shrink?" with "Print" or "Edit" or "Shrink"if it is "Shrink" thenset the rect of me to 244,130,484,297else if it is "Print" thenpush cardset the lockscreen to trueset the lockmessages to trueset the lockrecent to trueget the selectionPut "Script of " & it & return into theScriptput "as of" && the long date && "at" && the long time &¬¨"." &return after theScriptif word 1 of it is "stack" thenput it into theStackput "stack" into itelseput offset("of stack",it) into tailput char (tail + 3) to (the number of chars in it) of it into theStackdelete char tail to (the number of chars in it) of itend ifgo theStackget script of itput it & return after theScriptpop cardput return & return & "End of script listing." after theScriptput return & "TextStream XCMD by Kevin Calhoun" after theScriptput return & "Script Manager Utilites ¬© 1989 Peter J√∂rgensen"put "Sending scripts to choosen printer."textStream "theScript" -- XCMD by Kevin Calhounhide msgelse -- edit the script of the selected objectpush cardset the lockscreen to trueset the lockmessages to trueset the lockrecent to trueget the selectionPut "Script of " & it & return after theScriptif word 1 of it is "stack" thenput it into theStackput "stack" into itelseput offset("of stack",it) into tailput char (tail + 3) to (the number of chars in it) of it into theStackdelete char tail to (the number of chars in it) of itend ifgo theStackedit the script of itpop cardend ifelse set the rect of me to 14,111,488,297end mouseUp</script> </part> <content> <layer>background</layer> <id>6</id> <text>Search Scripts</text> </content> <content> <layer>card</layer> <id>1</id> <text>play</text> </content> <content> <layer>card</layer> <id>18</id> <text>None found!</text> </content> <name>Search Scripts</name> <script>-- Search Scripts 1.0 ¬© 1989 Peter J√∂rgensen, Hamilton, NYfunction FileList startFolder,aTYPE,FullNames,SubFoldersif startFolder is not empty then put ":" after startFolderput startFolderput empty into TheList-- first the files in this folderget files(startFolder,aType,3) -- XFCN by Guy de Picciottoif it is not empty thenif FullNames thenrepeat with i = 1 to the number of lines in itput StartFolder before line i of itend repeatend ifput it after TheListend if-- next the folders in this folderif SubFolders thenget files(startFolder,"",2) -- XFCN by Guy de Picciottoif it is not empty thenrepeat with f = 1 to the number of lines in itset the cursor to busyput FileList(startFolder& line f of it,aTYPE,FullNames,true)¬¨into tempif temp is not empty then put return & temp after TheListend repeatend ifend ifif line 1 of theList is empty then delete line 1 of theListreturn TheListend FileListfunction extractFname aPathName-- this handler returns a file's name given it's full pathname-- ¬© 1989 Peter J√∂rgensenrepeatget offset(":",aPathName)if it is 0 then return aPathNamedelete char 1 to it of aPathNameend repeatend extractFnamefunction thisFolderget the long name of this stackget fileSpec (it) -- HTalk function in this scriptreturn folderName (it)end thisFolderfunction fileSpec LongStackName-- this function returns a stack's short name given it's full name-- useful when using fileName xfcnput LongStackName into specdelete character 1 to 7 of specdelete last character of specreturn specend fileSpecfunction folderName filenamerepeatif last char of filename is ":" then exit repeatdelete last char of filenameend repeatdelete last char of filenamereturn filenameend folderNamefunction FileList startFolder,aTYPE,FullNames,SubFoldersif startFolder is not empty then put ":" after startFolderput startFolderput empty into TheList-- first the files in this folderget files(startFolder,aType,3) -- XFCN by Guy de Picciottoif it is not empty thenif FullNames thenrepeat with i = 1 to the number of lines in itput StartFolder before line i of itend repeatend ifput it after TheListend if-- next the folders in this folderif SubFolders thenget files(startFolder,"",2) -- XFCN by Guy de Picciottoif it is not empty thenrepeat with f = 1 to the number of lines in itset the cursor to busyput FileList(startFolder& line f of it,aTYPE,FullNames,true)¬¨into tempif temp is not empty then put return & temp after TheListend repeatend ifend ifif line 1 of theList is empty then delete line 1 of theListhide messagereturn TheListend FileList</script> </card> card_7241.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>7241</id> <filler1>0</filler1> <bitmap>BMAP_7450.pbm</bitmap> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>6205</owner> <link rel="stylesheet" type="text/css" href="stylesheet_9546.css" /> <part> <id>1</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>75</left> <top>181</top> <right>239</right> <bottom>205</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Simple Editor</name> <script></script> </part> <part> <id>2</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>75</left> <top>212</top> <right>239</right> <bottom>236</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Search Scripts</name> <script></script> </part> <part> <id>3</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>75</left> <top>240</top> <right>239</right> <bottom>264</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>AutoDoc</name> <script></script> </part> <part> <id>4</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>248</left> <top>181</top> <right>412</right> <bottom>205</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Utility Functions</name> <script></script> </part> <part> <id>5</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>248</left> <top>212</top> <right>412</right> <bottom>236</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>PopNote</name> <script></script> </part> <part> <id>7</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>14</left> <top>290</top> <right>54</right> <bottom>331</bottom> </rect> <style>transparent</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>20098</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Home</name> <script>on mouseUpgo homeend mouseUp</script> </part> <part> <id>8</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>158</left> <top>159</top> <right>352</right> <bottom>172</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name>copyright</name> <script></script> </part> <part> <id>9</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>233</left> <top>313</top> <right>256</right> <bottom>335</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>26635</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>About</name> <script>on mouseUpset the visible of cd fld "About" to not the visible of cd fld "About"set the visible of cd fld "CopyRight" to the visible of cd fld "About"end mouseUp</script> </part> <part> <id>12</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>248</left> <top>241</top> <right>412</right> <bottom>265</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>User Preferences</name> <script></script> </part> <part> <id>10</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>64</left> <top>204</top> <right>442</right> <bottom>312</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>About</name> <script>on MouseDownhide meend mouseDown</script> </part> <part> <id>11</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>208</left> <top>101</top> <right>294</right> <bottom>120</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>New York</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>modifications</name> <script></script> </part> <part> <id>15</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>75</left> <top>270</top> <right>239</right> <bottom>294</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Script Investigator</name> <script></script> </part> <part> <id>16</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>248</left> <top>270</top> <right>412</right> <bottom>294</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>dePunch</name> <script></script> </part> <content> <layer>card</layer> <id>8</id> <text>¬© 1989 Peter J√∂rgensen</text> </content> <content> <layer>card</layer> <id>10</id> <text>This stack uses the following XCMDs and XFCNs:DeleteAFile - Dewi WilliamsDeleteFile - David CongerFieldToFile - Kevin CalhounFileName - Steve MallerFileToField - Kevin CalhounFiles - Guy de PicciottoPrettyPrintField - Mark ScherflingPopAlert - Eduardo MendezTextstream - Kevin Calhoun</text> </content> <content> <layer>card</layer> <id>11</id> <text>Version 1.2 of stack "Script Manager" as of 6/12/90 at 1:47 PMcard button "Get File" of card "Simple Editor" modified by Peter J√∂rgensen on Tuesday, December 18, 1990 at 10:20 AMcard button "Output To:" of card "dePunch" modified by Peter J√∂rgensen on Wednesday, December 19, 1990 at 11:31 AMcard "dePunch" modified by Peter J√∂rgensen on Wednesday, December 19, 1990 at 11:38 AMcard "tabs to commas" modified by Peter J√∂rgensen on Monday, March 18, 1991 at 8:21 AMcard button "Stop It!" of card "tabs to commas" modified by Peter J√∂rgensen on Monday, March 18, 1991 at 8:52 AMcard button "Stop It!" of card "tabs to commas" modified by Peter J√∂rgensen on Monday, March 18, 1991 at 8:53 AMcard "tabs to commas" modified by Peter J√∂rgensen on Monday, March 18, 1991 at 9:15 AMcard "tabs to commas" modified by Peter J√∂rgensen on Monday, March 18, 1991 at 9:38 AMcard "tabs to commas" modified by Peter J√∂rgensen on Monday, March 18, 1991 at 10:10 AMcard "dePunch" modified by Peter J√∂rgensen on Friday, May 17, 1991 at 11:53 AMcard "dePunch" modified by Peter J√∂rgensen on Friday, May 17, 1991 at 2:47 PMcard "dePunch" modified by Peter J√∂rgensen on Friday, May 17, 1991 at 3:34 PM</text> </content> <name></name> <script>on mouseUpif the name of the target contains "button" thengo cd the short name of the targetend ifpass mouseUpend mouseUpon closeCardhide cd fld "copyright"pass closecardend closecard</script> </card>